First attach packages
Make an interactive map of Iris data:
iris_graph <- ggplot(data = iris, aes(x= Petal.Width, y = Petal.Length)) +
geom_point(aes(size =Sepal.Width,
color = Species)) +
labs(x = "Petal width (cm)",
y = "Petal length (cm)",
title = "Iris metrics")
ggplotly(iris_graph)